home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 May
/
EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso
/
programs
/
write
/
write.install
< prev
Wrap
Text File
|
1996-11-23
|
46KB
|
1,546 lines
;=================================================================================
; $VER: Installer_SKRIPT_für_WRITE 5.0 (25-Aug-96) © 1989 - 1996 by Tim Teulings
;=================================================================================
; Only Experts
(set @user-level 2)
(set DEMO TRUE)
; Some global strings
(if (= @language "deutsch")
(
(set #address (cat "\n"
"Tim Teulings\n"
"An der Dorndelle 16\n"
"59192 Bergamen (Deutschland)\n"
"\n"
"MausNet: Tim Teulings @ UN\n"
"InterNet: rael@edge.ping.de\n"
"\n"
"Konto für freiwillige Spenden:\n"
"Sparkasse Berkamen - Bönen\n"
"BLZ : 410 518 45\n"
"KontoNr.: 16186496"
)
)
)
)
(if (= @language "english")
(
(set #address (cat "\n"
"Tim Teulings\n"
"An der Dorndelle 16\n"
"59192 Bergamen (Deutschland)\n"
"\n"
"MausNet: Tim Teulings @ UN\n"
"InterNet: rael@edge.ping.de\n"
"\n"
"Account for presents:\n"
"Sparkasse Berkamen - Bönen\n"
"BLZ : 410 518 45\n"
"KontoNr.: 16186496"
)
)
)
)
(if (= @language "svenska")
(
(set #address (cat "\n"
"Tim Teulings\n"
"An der Dorndelle 16\n"
"59192 Bergamen (Deutschland)\n"
"\n"
"MausNet: Tim Teulings @ UN\n"
"InterNet: rael@edge.ping.de\n"
"\n"
"Konto för frivilliga bidrag:\n"
"Sparkasse Berkamen - Bönen\n"
"BLZ : 410 518 45\n"
"Kontonr.: 16186496"
)
)
)
)
;=============================================================================
; make sure we are running under a 2.04 ROM
(set currentvernum (getversion "WRITE"))
(set currentver (/ currentvernum 65536))
(set currentrev (- currentvernum (* currentver 65536)))
(if (= @language "deutsch")
(
(set #bad-kick "WRITE läuft nur mit Kickstart 2.0 oder größer!")
(set #bad-inst "Dieses Installerskript läuft nur mit Installerversionen >= 43!")
(set #intro (cat "\n"
"WRITE " currentver "." currentrev " - Ein Texteditor\n"
"© 1989-1996 von Tim Teulings\n"
"\n"
"Dieses Produkt ist Freeware.\n"
"\n"
"Bitte lesen sie das Kapitel `Copyright'\n"
"der Anleitung."
)
)
(set #ioerror1 (cat "\n"
"FEHLER "
)
)
(set #ioerror2 (cat "\n"
"\n"
"Ein Fehler ist aufgetreten.\n"
"\n"
"Bitte informieren sie mich darüber.\n"
"Geben sie dabei genau an wann und unter "
"welchen Bedingungen der Fehler aufgetreten "
"ist. Schicken sie, wenn vorhanden auch "
"bitte das Log-File mit.\n"
"\n"
"Danke."
)
)
)
)
(if (= @language "english")
(
(set #bad-kick "WRITE needs OS 2.0+!")
(set #bad-inst "This installerscript runs only with versions >=42 of the installer!")
(set #intro (cat "\n"
"WRITE "currentver "." currentrev " - a texteditor\n"
"@ 1989 - 1996 by Tim Teulings\n"
"\n"
"This is freeware.\n"
"\n"
"Please read chapter `Copyight'\n"
"in the docs."
)
)
(set #ioerror1 (cat "\n"
"ERROR "
)
)
(set #ioerror2 (cat "\n"
"\n"
"An error occured.\n"
"\n"
"Please inform me about this.\n"
"Please give complete and exact information "
"in which situation the error occured. "
"Send me also, if existing, the logfile "
"generated by the installer.\n"
"\n"
"Thank you."
)
)
)
)
(if (= @language "svenska")
(
(set #bad-kick "WRITE måste ha Kickstart 2.0 eller senare!")
(set #bad-inst "Detta Installatiponsskript måste ha Installerversion >= 43!")
(set #intro (cat "\n"
"WRITE " currentver "." currentrev " - En Texteditor\n"
"© 1989-1996 av Tim Teulings\n"
"\n"
"Prpogrammet är Freeware.\n"
"\n"
"Vär vänlig och läs kapitlet `Copyright'\n"
"i dokumentationen."
)
)
(set #ioerror1 (cat "\n"
"FEL "
)
)
(set #ioerror2 (cat "\n"
"\n"
"Ett fel har uppstått.\n"
"\n"
"Vänligen informera mig om det.\n"
"Sänd med så mycket och noggrann information "
"som möjligt om felet och hur det uppstod. "
"Har du installationsskriptets logfil "
"så skicka med även den.\n"
"\n"
"Tack!"
)
)
)
)
(if
(< (/ (getversion) 65536) 37)
(
(abort #bad-kick)
)
)
(if
(< (/ @installer-version 65536) 43)
(
(abort #bad-inst)
)
)
(message #intro)
(welcome)
(set @default-dest "")
(onerror
(if (> @ioerr 0)
(message #ioerror1 @ioerr "(" @error-msg ")" #ioerror2)
)
)
;=============================================================================
; An Pre 5 version found!
(if (= @language "deutsch")
(
(set #old-version1 (cat "\n"
"Sie haben bereits eine alte Version von WRITE "
"installiert. WRITE wurde inzwischen stark "
"überabeitet und wird nun anders installiert "
"(Näheres siehe nächste Seite).\n"
"\n"
"Bevor sie mit der Installation fortfahren, "
"machen sie bitte erst eine Sicherheitskopie "
"der alten Installation und entfehrnen sie alle "
"zu WRITE gehörigen Teile (siehe ebenfalls "
"nächste Seite) aus ihrem System. "
"\n"
"(Fortsetzung)"
)
)
(set #old-version2 (cat "\n"
"Zur Deinstallation ihrer alten Version "
"löschen sie bitte nicht nur WRITE selbst "
"auch die alten Konfigurationen, den Guide, "
"den Quickstarter, die Kataloge, die Umgebungsvariablen...."
"\n"
"(Fortsetzung)"
)
)
(set #old-version3 (cat "\n"
"Kopieren sie außerdem ihren Keyfile in das "
"Verzeichnis aus dem sie auch diese Skript "
"gestartet haben."
"\n"
"Ich möchte mich noch einmal besonders bei "
"den registrierten Usern für diese "
"Umstände entschuldigen und hoffe auf "
"Verständnis."
)
)
(set #write-found1 (cat "\n"
"Sie haben WRITE bereits installiert. Das Skript "
"wird nun ihre Version auf den neusten Stand "
"bringen.\n"
"\n"
"Für die Dateien in den Verzeichnissen 'Config', 'Module' "
"und 'REXX' wird eine Sicherheitkopie angelegt!"
)
)
(set #write-newer (cat "\n"
"Sie versuchen eine ältere Version von WRITE "
"über eine neuere zu installieren!"
)
)
)
)
(if (= @language "english")
(
(set #old-version1 (cat "\n"
"You already have installed an old version of "
"WRITE. WRITE was much inproved since your "
"version. The installationprocedure has changed "
"(please read next page for more infos).\n"
"\n"
"Before continuing to install please make an "
"backup of your old installation and remove all "
"files belonging to WRITE (see also next page). "
"\n"
"(continue)"
)
)
(set #old-version2 (cat "\n"
"To deinstall your old version please delete "
"not only WRITE itself but also your old "
"configs, guide, catalogs, quickstarter, enviroment-variables...\n"
"\n"
"(continue)"
)
)
(set #old-version3 (cat "\n"
"Copy also your keyfile in the directory you "
"have started this script from."
)
)
(set #write-found1 (cat "\n"
"You already have installed WRITE. This script will "
"make your version up to date.\n"
"\n"
"Existings files in the directories 'Config', 'Module' "
"and 'REXX' will be backuped!"
)
)
(set #write-newer (cat "\n"
"You try to copy an older version of WRITE over a newer one!"
)
)
)
)
(if (= @language "svenska")
(
(set #old-version1 (cat "\n"
"Du har en äldre version av Write "
"installerad. Porgrammet har förbättrats "
"mycket sedan dess, balnd annat har "
"installationen ändrats mycket "
"(Mer info om detta på nästa sida)\n"
"\n"
"Innan du fortsätter med installationen "
"bör du göra en backup av din gamla installation "
"och flytta undan alla filer som tillhör WRITE "
"Se även nästa sida. "
"\n"
"(Fortsättning)"
)
)
(set #old-version2 (cat "\n"
"Vid avinstallation av gammal WRITE är det "
"inte bara själva programfilen, utan "
"även alla konfigurationsfiler, guiden, "
"Quickstarten, katalogerna, med mera . . . "
"\n"
"(Fortsättning)"
)
)
(set #old-version3 (cat "\n"
"Kopiera också myckelfilen till den låda där "
"du startar detta skript ifrån."
"\n"
"Jag måste be speciellt registrerade "
"användare om ursäkt för denna omständiga "
"procedur men hoppas på förståelse."
)
)
(set #write-found1 (cat "\n"
"Du har redan en fungerande WRITE. Detta "
"skript uppdaterar till senaste versionen.\n"
"\n"
"På filerna i 'Config', 'Module' "
"och 'REXX' görs säkerhetskopior!"
)
)
(set #write-newer (cat "\n"
"Du försöker installera en äldre version av WRITE över en nyare!"
)
)
)
)
(if
(exists "ENV:WRITE")
;THEN
(
(message #old-version1)
(message #old-version2)
(if
(exists "ENV:WRITE.KEY")
; THEN
(
(message #old-version3)
)
)
; END
(exit)
)
)
;END
(if
(exists "ENV:WRITEPATH")
;THEN
(
(set OLDWRITEPATH (getenv "WRITEPATH"))
(set OLDWRITEPATH (tackon OLDWRITEPATH "WRITE"))
(set oldvernum (getversion OLDWRITEPATH))
(set oldver (/ oldvernum 65536))
(set oldrev (- oldvernum (* currentver 65536)))
(if
(< oldver 5)
(
(message #old-version1)
(message #old-version2)
(exit)
)
)
(if
(or (> oldver currentver) (>= oldrev newrev))
(
(message #write-newer)
(exit)
)
)
(message #write-found1)
(set REINSTALL TRUE)
(set KEY (getenv "WRITEPATH"))
(set KEY (tackon KEY "WRITE.KEY"))
)
;ELSE
(
(set REINSTALL FALSE)
)
;END
)
;=============================================================================
; Nützliche Proceduren
(procedure W_COPYLIB #source #destination #description #help
(
(copylib (prompt #description)
(help #help)
(source #source)
(dest #destination)
(confirm)
)
)
)
(procedure W_CORRECTDIR #dir
(if (not (or (patmatch "#?:" #dir) (patmatch "#?/" #dir)))
(
(cat #dir "/")
)
(
(#dir)
)
)
)
(procedure W_COPYICON #source #destination
(tackon #destination (fileonly #source))
(set #source (cat #source ".info"))
(set #destination (cat #destination ".info"))
(if (not (exists #destination))
(
(copyfiles (source #source)
(dest (pathonly #destination))
(newname (fileonly #destination))
)
)
)
)
(procedure W_COPYDIRICON #source #destination
(if (or (patmatch "#?:" #source) (patmatch "#?/" #source))
(
(set #source (substr #source 0 ( - (strlen #source) 1)))
)
)
(if (or (patmatch "#?:" #source) (patmatch "#?/" #source))
(
(set #dest (substr #source 0 ( - (strlen #source) 1)))
)
)
(set #source (cat #source ".info"))
(set #dest (cat #dest ".info"))
(if (not (exists #dest))
(
(copyfiles (source #source)
(dest #destination)
)
)
)
)
;=============================================================================
; Installieren von WRITE
(if (= @language "deutsch")
(
(set #write-dir1 (cat "\n"
"Ab Version 4 ist es nun möglich (fast) alle "
"zu WRITE gehörigen Dateien in ein Verzeichnis "
"zu kopieren.\n"
"\n"
"Bitte geben sie im Folgenden nun an, in "
"welches Verzeichnis sie WRITE kopiert haben "
"möchten.\n"
"\n"
"Benutzen sie BITTE ein eigenes Verzeichnis "
"für WRITE!"
)
)
(set #write-dir2 (cat "Wohin sollen 'WRITE' und alle hinzugehörigen Dateien kopiert werden?\n"
"(Erzeugen sie ein eigenes Verzeichnis!)"
)
)
(set #write-dir3 "Kopiere 'WRITE' nach:")
(set #write-dir4 "Erzeuge Unterverzeichnisse...")
(set #language "Welche Sprachen sollen installiert werden?")
)
)
(if (= @language "english")
(
(set #write-dir1 (cat "\n"
"Since version 4 ist is now possible to copy "
"(nearly) all files in one directory.\n"
"\n"
"Please tell now zo which directory you want "
"the files copied to.\n"
"\n"
"Please use an own directory for WRITE!"
)
)
(set #write-dir2 (cat "Where do want 'WRITE' and all its data to be copied to?\n"
"(Create an own directory!)"
)
)
(set #write-dir3 "Copy 'WRITE' to:")
(set #write-dir4 "Creating subdirectories...")
(set #language "Which languages should be installed?")
)
)
(if (= @language "svenska")
(
(set #write-dir1 (cat "\n"
"Från version 4 är det möjligt att kopiera "
"så gott som alla filerna till samma låda.\n"
"\n"
"Berätta nu vilken låda du vill ha WRITE "
"installerad i.\n"
"\n"
"WRITE bör installeras i en egen låda!"
)
)
(set #write-dir2 (cat "Vart vill du att 'WRITE' och alla dess filer skall kopieras till?\n"
"(Skapa en egen låda!)"
)
)
(set #write-dir3 "Kopiera 'WRITE' till:")
(set #write-dir4 "Skapar underlådor . . .")
(set #language "Vilka språk skall installeras?")
)
)
(if
(exists "ENV:WRITEPATH")
;THEN
(
(set W_WRITE-DIR (getenv "WRITEPATH"))
)
;ELSE
(
(message #write-dir1)
(set W_WRITE-DIR
(askdir (prompt #write-dir2)
(help @askdir-help)
(default "sys:")
)
)
)
;END;
)
(set LANGUAGE (askoptions (prompt #language)
(help "")
(choices "deutsch" "english" "svenska")
(default 0)
)
)
(working #write-dir4)
(set W_WRITE-DIR (W_CORRECTDIR W_WRITE-DIR))
(set @default-dest W_WRITE-DIR)
(set W_QS-DIR W_WRITE-DIR)
(set W_WRITE-FULL (tackon W_WRITE-DIR "WRITE"))
(set W_CONFIG-DIR (W_CORRECTDIR (tackon W_WRITE-DIR "Config")))
(set W_MODULE-DIR (W_CORRECTDIR (tackon W_WRITE-DIR "Module")))
(set W_MACRO-DIR (W_CORRECTDIR (tackon W_WRITE-DIR "Macro")))
(set W_REXX-DIR (W_CORRECTDIR (tackon W_WRITE-DIR "REXX" )))
(set W_CONFIG_BAK-DIR (W_CORRECTDIR (tackon W_WRITE-DIR "Config_bak")))
(set W_MODULE_BAK-DIR (W_CORRECTDIR (tackon W_WRITE-DIR "Module_bak")))
(set W_REXX_BAK-DIR (W_CORRECTDIR (tackon W_WRITE-DIR "REXX_bak" )))
(set W_ICON-DIR (W_CORRECTDIR (tackon W_WRITE-DIR "Icons" )))
(set W_GUIDE-DIR (W_CORRECTDIR (tackon W_WRITE-DIR "docs" )))
(set W_LOCALE-DIR (W_CORRECTDIR (tackon W_WRITE-DIR "catalogs")))
(set W_LIBS-DIR (W_CORRECTDIR (tackon W_WRITE-DIR "libs")))
(set W_TOOLS-DIR (W_CORRECTDIR (tackon W_WRITE-DIR "tools")))
(makedir W_WRITE-DIR)
(makedir W_CONFIG-DIR)
(makedir W_MODULE-DIR)
(makedir W_MACRO-DIR)
(makedir W_REXX-DIR)
(makedir W_ICON-DIR)
(makedir W_GUIDE-DIR)
(makedir W_LOCALE-DIR)
(makedir W_LIBS-DIR)
(makedir W_TOOLS-DIR)
(W_COPYDIRICON "Config" W_WRITE-DIR)
(W_COPYDIRICON "Module" W_WRITE-DIR)
(W_COPYDIRICON "Macro" W_WRITE-DIR)
(W_COPYDIRICON "Rexx" W_WRITE-DIR)
(W_COPYDIRICON "Icons" W_WRITE-DIR)
(W_COPYDIRICON "docs" W_WRITE-DIR)
(W_COPYDIRICON "Catalogs" W_WRITE-DIR)
(W_COPYDIRICON "Tools" W_WRITE-DIR)
(set #n 0)
(while (set directory (select #n "deutsch" "english" "svenska"))
(
(if (IN LANGUAGE #n)
(
(makedir (tackon W_LOCALE-DIR directory))
(makedir (tackon W_CONFIG-DIR directory))
(makedir (tackon W_MODULE-DIR directory))
(makedir (tackon W_MACRO-DIR directory))
(makedir (tackon W_GUIDE-DIR directory))
(W_COPYDIRICON (tackon "docs" directory) W_GUIDE-DIR)
)
)
(set #n (+ #n 1))
)
)
(if
(exists "sys:classes")
;THEN
(
(set W_GADGETS-DIR "SYS:classes/gadgets")
(set W_IMAGES-DIR "SYS:classes/images")
)
;ELSE
(
(makedir "LIBS:gadgets")
(makedir "LIBS:images")
(set W_GADGETS-DIR "LIBS:gadgets")
(set W_IMAGES-DIR "LIBS:images")
)
)
(copyfiles (prompt #write-dir3
W_WRITE-DIR
)
(help @copyfiles-help)
(source "WRITE")
(dest W_WRITE-DIR)
)
(W_COPYICON "WRITE" (tackon W_WRITE-DIR "WRITE"))
;=============================================================================
; Setzen der Umgebungsvariablen WRITEPATH
(if (= @language "deutsch")
(
(set #env-write "Setze Umgebungsvariablen...")
)
)
(if (= @language "english")
(
(set #env-write "Setting enviroment-variables...")
)
)
(if (= @language "svenska")
(
(set #env-write "Gör inställningar . . . ")
)
)
(working #env-write)
(textfile (prompt "")
(help "")
(dest "ENV:WRITEPATH")
(append W_WRITE-DIR)
)
(textfile (prompt "")
(help "")
(dest "ENVARC:WRITEPATH")
(append W_WRITE-DIR)
)
;=============================================================================
; Installieren der Docs im Hauptverzeichnis
(if (= @language "deutsch")
(
(set #working "Kopiere die Dokumente im Hauptverzeichnis ...")
)
)
(if (= @language "english")
(
(set #working "Copying documents to the main-directory ...")
)
)
(if (= @language "svenska")
(
(set #working "Kopierar dokument i huvudbiblioteket . . .")
)
)
(working #working)
(copyfiles (source "")
(dest W_WRITE-DIR)
(pattern "#?.(doc|dok)(%|.info)")
)
;=============================================================================
; Installieren von QuickWrite - dem Quickstarter
(if (= @language "deutsch")
(
(set #qw1 (cat "\n"
"Wollen sie auch QuickWrite, den Quickstarter "
"von WRITE installiert haben?\n"
"Er stellt fest, ob WRITE bereits gestartet "
"worden ist, und startet ihn, falls nicht. "
"Anschließend werden die übergebenen "
"Kommandos über den AREXX-Port an WRITE "
"weitergeleitet.\n"
"Der Quickstarter muß nicht ins gleiche Verzeichnis "
"wie WRITE kopiert werden, sollte "
"sich aber im Suchpfad befinden!"
)
)
(set #qw2 (cat "Welchen Namen soll der Quickstarter erhalten?"
)
)
(set #qw3 "Wohin wollen sie den Quickstarter kopiert haben?")
(set #qw4 "Kopiere 'QuickWrite' nach:\n")
)
)
(if (= @language "english")
(
(set #qw1 (cat "\n"
"Do you want to have quickwrite, the quickstarter "
"for WRITE, to be installed?\n"
"It tests if WRITE was started and starts it "
"if not. After that the given files are "
"loaded via the arexxport of WRITE.\n"
"The quickstarter needs not to be installed "
"in the same directory as WRITE but it should "
"be in the searchpath!"
)
)
(set #qw2 (cat "Which name should the quickstarter have?"
)
)
(set #qw3 "Where do you want quickwrite to be copied to?")
(set #qw4 "Copying 'quickwrite' to:")
)
)
(if (= @language "svenska")
(
(set #qw1 (cat "\n"
"Vill du att även QuickWrite, en snabbstartare "
"till WRITE skall installeras?\n"
"Den kollar om WRITE redan är startat "
"om inte startas WRITE. "
"Efter detta öppnas givna filer via "
"AREXX-porten.\n"
"Quickstarter behöver inte ligga i samma låda som WRITE, "
"men måste finnas i sökvägen!"
)
)
(set #qw2 (cat "Vilket namn vill du ha på Quickstarter?"
)
)
(set #qw3 "Vart skall Quickstarter kopieras?")
(set #qw4 "Kopiera 'QuickWrite' till:\n")
)
)
(if
(askbool (prompt #qw1)
(help "")
)
;THEN
(
(set W_QS-NAME
(askstring (prompt #qw2)
(help "")
(default "WED")
)
)
(set W_QS-DIR
(askdir (prompt #qw3)
(help @askdir-help)
(default W_QS-DIR)
)
)
(set W_QS-NEW (tackon W_QS-DIR W_QS-NAME))
(copyfiles (prompt #qw4
W_QS-NEW
)
(help @copyfiles-help)
(source "QuickWrite")
(dest W_QS-DIR)
(newname W_QS-NAME)
)
(protect W_QS-NEW "+r +w +e +d +p")
(W_COPYICON "QuickWrite" (tackon W_QS-DIR W_QS-NEW))
)
;END
)
;=============================================================================
; Installieren der garbagecollector.library
(if (= @language "deutsch")
(
(set #garbage (cat "Installiere die\n"
"'GarbageCollector.library'\n"
"nach LIBS:"
)
)
(set #garbageh (cat "Die 'GarbageCollector.library' ist für die "
"Funktion von 'WRITE' unbedingt nötig. "
"Sie organisiert die Speicherverwaltung."
)
)
)
)
(if (= @language "english")
(
(set #garbage (cat "Copying\n"
"'garbagecollector.library'\n"
"to LIBS:"
)
)
(set #garbageh (cat "The 'garbagecollector.library' is necessary "
"for WRITE and must be installed. It work "
"it the memoryrorganisation for WRITE"
)
)
)
)
(if (= @language "svenska")
(
(set #garbage (cat "Installera\n"
"'GarbageCollector.library'\n"
"till LIBS:"
)
)
(set #garbageh (cat "Detta 'GarbageCollector.library' är helt "
"nödvändigt för att 'WRITE' skall fungera. "
"Det har hand om minnesfördelningen."
)
)
)
)
(W_COPYLIB "LIBS/garbagecollector.library" "LIBS:" #garbage #garbageh)
;=============================================================================
; Installieren der write.library
(if (= @language "deutsch")
(
(set #writelib (cat "Installiere die\n"
"'write.library'\n"
"nach LIBS:"
)
)
(set #writelibh (cat "Die 'write.library' ist für die "
"Funktion von 'WRITE' NICHT unbedingt nötig, wird aber "
" z.B. vom Quickstarter benutzt und sollte deshalb "
"auch installiert werden."
)
)
)
)
(if (= @language "english")
(
(set #writelib (cat "Copying\n"
"'write.library'\n"
"to LIBS:"
)
)
(set #writelibh (cat "The 'write.library' is not necessary for WRITE, but is used "
"for example the quickstarter and should be installed, too"
)
)
)
)
(if (= @language "svenska")
(
(set #writelib (cat "Installera\n"
"'write.library'\n"
"till LIBS:"
)
)
(set #writelibh (cat "Detta 'write.library' är inte nödvändigt "
"för funktionerna i 'WRITE' men används "
"exempelvis av Quickstarter och bör därför "
"installeras."
)
)
)
)
(W_COPYLIB "LIBS/write.library" "LIBS:" #writelib #writelibh)
;=============================================================================
; Installieren der hui.library
(if (= @language "deutsch")
(
(set #otherlib2 (cat "Installiere die\n"
"'hui.library'\n"
"nach LIBS:"
)
)
(set #otherlib2h (cat "Die hui.library ist zuständig für die fontsensitive "
"Oberfläche von WRITE und wird unbedingt benötigt!"
)
)
(set #otherlib3 (cat "Installiere die\n"
"'js_tools.library'\n"
"nach LIBS:"
)
)
(set #otherlib3h (cat "Die js_tools.library implementiert ein leistungstarkes Listgadget "
"welches von der hui.library und damit auch von WRITE benötigt wird. "
"(© J. Schmitz)"
)
)
(set #otherlib4 "Kopiere\n")
(set #otherlib5 "nach:\n")
)
)
(if (= @language "english")
(
(set #otherlib2 (cat "Copying\n"
"'hui.library'\n"
"to libs\n"
)
)
(set #otherlib2h (cat "The hui.library is responsible for the fontsensitive "
"gui and must be installed!"
)
)
(set #otherlib3 (cat "Copying\n"
"'js_tools.library'\n"
"to libs"
)
)
(set #otherlib3h (cat "'js_tools.library' implements a powerfull listgadget, which is used "
"by hui.library and so must be installed! "
"(© J. Schmitz)"
)
)
(set #otherlib4 "Copying\n")
(set #otherlib5 "to:\n")
)
)
(if (= @language "svenska")
(
(set #otherlib2 (cat "Installera\n"
"'hui.library'\n"
"till LIBS:"
)
)
(set #otherlib2h (cat "hui.library har hand om det fontkänsliga guit "
"och måste installeras!"
)
)
(set #otherlib3 (cat "Installera\n"
"'js_tools.library'\n"
"till LIBS:"
)
)
(set #otherlib3h (cat "js_tools.library ger en kraftfull Listgadget "
"som används av hui.library och måste installeras! "
"(© J. Schmitz)"
)
)
(set #otherlib4 "Kopiera\n")
(set #otherlib5 "till:\n")
)
)
(W_COPYLIB "LIBS/hui.library" W_LIBS-DIR #otherlib2 #otherlib2h)
(W_COPYLIB "LIBS/js_tools.library" W_LIBS-DIR #otherlib3 #otherlib3h)
(W_COPYLIB "LIBS/gadgets/scroller.gadget"
W_GADGETS-DIR
(cat #otherlib4 "'scroller.gadget'\n" #otherlib5 W_GADGETS-DIR)
"© hartmut Goebel"
)
(W_COPYLIB "LIBS/images/select.image"
W_IMAGES-DIR
(cat #otherlib4 "'select.image'\n" #otherlib5 W_IMAGES-DIR)
"© hartmut Goebel"
)
;=============================================================================
; Installieren der garbagecollector Prefs
(if (= @language "deutsch")
(
(set #garbprefs1 (cat "\n"
"Soll das Preferences-Programm\n"
"'GarbagePrefs'\n"
"kopiert werden?\n"
"\n"
"Über dieses Programm kann die GarbageCollector.library "
"konfiguriert werden."
)
)
(set #garbprefs1h (cat "Über das GabargePrefs-Programm kann die Speicherzuteilung und Nutzung"
"für den Garbagecollector und damit auch für WRITE optimal eingestellt "
"werden. Nur durch das GarbagePrefs-Programm wird die 'garbagecolletor.library' "
"optimal konfiguriert!"
)
)
(set #garbprefs2 (cat "Wohin soll das Preferences-Programm\n"
"'GarbagePrefs'\n"
"kopiert werden?"
)
)
(set #garbprefs3 "Entpacke prefs/GarbagePrefs.lha nach \"%s\"")
(set #garbprefs4 (cat "\n"
"GarbagePrefs wird nun gestartet!\n"
"\n"
"Selektieren sie das Menü 'Editieren/Werte "
"vorschlagen' und speichern sie danach ab.\n"
"Lesen sie später, falls sie mit der "
"Speicherbenutzung von WRITE nicht zufrieden "
"sind, den Text 'GarbageCollector.LiesMich', "
"um den GarbageCollector noch besser an ihr "
"System anzupassen."
)
)
)
)
(if (= @language "english")
(
(set #garbprefs1 (cat "\n"
"Do you want the preferencesprogramm\n"
"'GarbagePrefs'\n"
"to be installed?\n"
"\n"
"With the use of this programm you can configure\n"
"the garbagecollector.library"
)
)
(set #garbprefs1h (cat "With this programm you can optimal set the memory-access and -use "
"of the garbagecollector and there for WRITE, too. Only with this "
"programm you are able to configure the library in an optimal way!"
)
)
(set #garbprefs2 (cat "Where should the preferencesprogramm\n"
"'GarbagePrefs'\n"
"copied to?"
)
)
(set #garbprefs3 "Extracting prefs/GarbagePrefs.lha to \"%s\"")
(set #garbprefs4 (cat "\n"
"GarbagePrefs will be started now!\n"
"\n"
"Select item 'Editieren/Werte vorschlagen' "
"and save after that.\n"
"Read later, if you are not pleased with the "
"memoryuse of WRITE, the text "
"'GarbageCollector.Liesmich' to optimaly "
"configure the collector to your needs."
)
)
)
)
(if (= @language "svenska")
(
(set #garbprefs1 (cat "\n"
"Vill du att GarbagePrefs\n"
"preferences-program\n"
"skall installeras?\n"
"\n"
"Via detta program kan GarbageCollector.library "
"konfigureras."
)
)
(set #garbprefs1h (cat "Med hjälp av GabargePrefs-programmet kan minneshantering och användningen "
"av Garbagecollector och därmed även av WRITE optimeras "
"Endast med hjälp av GarbagePrefs-programmet kan 'garbagecolletor.library' "
"konfigureras optimalt!"
)
)
(set #garbprefs2 (cat "Var skall Preferences-programmet\n"
"'GarbagePrefs'\n"
"installeras?"
)
)
(set #garbprefs3 "Packa upp prefs/GarbagePrefs.lha till \"%s\"")
(set #garbprefs4 (cat "\n"
"GarbagePrefs startas nu!\n"
"\n"
"Välj menyn 'Editieren/Werte vorschlagen' "
"och spara efter det.\n"
"Om du inte är nöjd med WRITEs minnehantering "
"bör du läsa 'GarbageCollector.LiesMich', "
"för att optimalt kunna anpassa systemet."
)
)
)
)
(if (askbool (prompt #garbprefs1)
(help #garbprefs1h)
)
;THEN
(
(set W_PREFS-DIR
(askdir (prompt #garbprefs2)
(help @askdir-help)
(default "SYS:Prefs")
)
)
(set W_PREFS-FULL (tackon W_PREFS-DIR "GarbagePrefs"))
(set W_PREFS-DIR (W_CORRECTDIR W_PREFS-DIR))
(working (#garbprefs3 W_PREFS-DIR))
(run ("c/lx -m x prefs/GarbagePrefs.lha \"%s\"" W_PREFS-DIR))
(if (= W_REINSTALL FALSE)
(
(message #garbprefs4)
(run ("\"%s\"" W_PREFS-FULL))
)
)
)
;END
)
;=============================================================================
; Mache Backup der Config und Module-files
(if (= REINSTALL TRUE)
(
(if (= @language "deutsch")
(
(set #backup1 "Mache Sicherheitskopien:\n\n")
)
)
(if (= @language "english")
(
(set #backup1 "Making backups:\n\n")
)
)
(if (= @language "svenska")
(
(set #backup1 "Gör säkerhetskopia:\n\n")
)
)
(set #backup (cat #backup1
"'" W_CONFIG-DIR "' -> '" W_CONFIG_BAK-DIR "'\n"
"'" W_MODULE-DIR "' -> '" W_MODULE_BAK-DIR "'\n"
"'" W_REXX-DIR "' -> '" W_REXX_BAK-DIR "'"
)
)
(working #backup )
(makedir W_CONFIG_BAK-DIR)
(makedir W_MODULE_BAK-DIR)
(makedir W_REXX_BAK-DIR)
(copyfiles (prompt "")
(help @copyfiles-help)
(source W_CONFIG-DIR)
(dest W_CONFIG_BAK-DIR)
(all)
(icons)
)
(copyfiles (prompt "")
(help @copyfiles-help)
(source W_MODULE-DIR)
(dest W_MODULE_BAK-DIR)
(all)
(icons)
)
(copyfiles (prompt "")
(help @copyfiles-help)
(source W_MACRO-DIR)
(dest W_MACRO_BAK-DIR)
(all)
(icons)
)
(copyfiles (prompt "")
(help @copyfiles-help)
(source W_REXX-DIR)
(dest W_REXX_BAK-DIR)
(all)
(icons)
)
)
)
;=============================================================================
; Kopieren der Konfiguration, Module, Macros und Icons
(if (= @language "deutsch")
(
(set #working "Kopiere die Konfigurationen, Module, Makros, Tools and Icons ...")
)
)
(if (= @language "english")
(
(set #working "Copying the configurations, modules, macros, tools and icons ...")
)
)
(if (= @language "svenska")
(
(set #working "Kopierar konfigurationer, moduler, macros, tools och ikoner . . . ")
)
)
(working #working)
(copyfiles (source "Config/")
(dest W_CONFIG-DIR)
(pattern "#?.config")
)
(copyfiles (source "Module/")
(dest W_MODULE-DIR)
(pattern "#?module")
)
(copyfiles (source "Macro/")
(dest W_MACRO-DIR)
(pattern "#?.wpl")
)
(copyfiles (source "icons/")
(dest W_ICON-DIR)
(Pattern "#?.info")
)
(copyfiles (source "tools/")
(dest W_TOOLS-DIR)
(all)
)
;=============================================================================
; Installieren der REXX-Script
(if (= @language "deutsch")
(
(set #rexx1 "Kopiere REXX-Skripts nach:\n")
)
)
(if (= @language "english")
(
(set #rexx1 "Copying REXX-scripts to:\n")
)
)
(if (= @language "svenska")
(
(set #rexx1 "Kopierar REXX-Skript till:\n")
)
)
(copyfiles (prompt #rexx1
W_REXX-DIR
)
(help "")
(source "Rexx/")
(dest W_REXX-DIR)
(all)
(confirm)
)
;=============================================================================
; now copy the catalogs
(if (= @language "deutsch")
(
(set #language "Kopiere sprachabhängige Dateien ...")
)
)
(if (= @language "english")
(
(set #language "Copying language-depended files ...")
)
)
(if (= @language "svenska")
(
(set #language "Kopierar språkberoende filer . . . ")
)
)
(working #language)
(set #n 0)
(while (set directory (select #n "deutsch" "english" "svenska"))
(
(if (IN LANGUAGE #n)
(
(copyfiles (source (tackon "config/" directory))
(dest (tackon W_CONFIG-DIR directory))
(all)
)
(copyfiles (source (tackon "module/" directory))
(dest (tackon W_MODULE-DIR directory))
(all)
)
(copyfiles (source (tackon "macro/" directory))
(dest (tackon W_MACRO-DIR directory))
(all)
)
(copyfiles (source (tackon "docs/" directory))
(dest (tackon W_GUIDE-DIR directory))
(all)
)
(if (>= (/ (getversion "LIBS:locale.library") 65536) 38)
(
(copyfiles (source (tackon "catalogs" directory))
(dest (tackon W_LOCALE-DIR directory))
(all)
)
)
)
)
)
(set #n (+ #n 1))
)
)
;=============================================================================
; Ändern der user-startup
(if (= @language "deutsch")
(
(set #startup1 (cat "Füge folgende Zeile in die user-startup ein:\n"
"\n"
)
)
(set #startup2 (cat "\n"
"Dadurch können REXX-Skripte aus WRITE heraus ohne Pfadangabe gestartet werden."
)
)
)
)
(if (= @language "english")
(
(set #startup1 (cat "Adding the following lines to your user-startup:\n"
"\n"
)
)
(set #startup2 (cat "\n"
"Doing this you can execute the rexx-scripts from WRITE without giving a path."
)
)
)
)
(if (= @language "svenska")
(
(set #startup1 (cat "Lägger till följande rader till din user-startup:\n"
"\n"
)
)
(set #startup2 (cat "\n"
"Tack vare detta kan du köra rexx-skript utan att ange sökväg."
)
)
)
)
(set W_USERSTARTUP ("ASSIGN REXX: \"%s\" ADD" W_REXX-DIR))
(startup "WRITE"
(prompt #startup1
W_USERSTARTUP
#startup2)
(help "")
(command W_USERSTARTUP)
)
(run W_USERSTARTUP)
;=============================================================================
(if (= @language "deutsch")
(
(set #nearend (cat "\n"
"Lesen sie nun den Text 'Garbage-Collector.Liesmich' "
"sowie das Kapitel Installation in der Anleitung.\n"
"\n"
"Veränderen sie dann anschließend gegebenenfalls, "
"wie auch im Kapitel 'Installation' der Anleitung "
"beschrieben, die Tooltypes des WRITE-Icons."
)
)
)
)
(if (= @language "english")
(
(set #nearend (cat "\n"
"Read now the text 'Garbage-Collector.Liesmich' and"
"the chapter 'Installation' in the documentation.\n"
"\n"
"Change the if necessary and as descripted in the "
"chapter 'Installation' in the docs, too, the "
"tooltypes."
)
)
)
)
(if (= @language "svenska")
(
(set #nearend (cat "\n"
"Läs nu texten 'Garbage-Collector.Liesmich' "
"och kapitlet installation i dokumentationen.\n"
"\n"
"Ändra här och i tooltypes om nödvändigt "
"för att få WRITE att fungera som du vill."
)
)
)
)
(message #nearend W_CONFIGFULL ".")
;=============================================================================
(if (= @language "deutsch")
(
(set #end (cat "\n"
"\nDie Installation ist nun beendet.\n"
"\n"
"Ich wünsche ihnen viel Spaß mit dieser Version von\n"
"\n"
"WRITE.\n"
"\n"
"Tim Teulings"
)
)
)
)
(if (= @language "english")
(
(set #end (cat "\n"
"The installation is now finished.\n"
"\n"
"I wish you a lot of fun with this version of\n"
"\n"
"WRITE\n"
"\n"
"Tim Teulings"
)
)
)
)
(if (= @language "svenska")
(
(set #end (cat "\n"
"\nInstallationen är nu färdig.\n"
"\n"
"Jag önskar dig mycket nöje med denna verion av\n"
"\n"
"WRITE.\n"
"\n"
"Tim Teulings"
)
)
)
)
(message #end)
